Voorbeeld van de functie CInt

Dit voorbeeld maakt gebruik van de functie CInt om een waarde naar een Integer te converteren.

Dim MyDouble, MyInt
MyDouble = 2345,5678    ' MyDouble is a Double.
MyInt = CInt(MyDouble)    ' MyInt contains 2346.